home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / arvis1 / launcher.frm < prev    next >
Text File  |  1999-10-09  |  16KB  |  483 lines
  1. VERSION 5.00
  2. Begin VB.Form Launcher 
  3.    BackColor       =   &H00000000&
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "Quad-Ball Launcher, By Arvinder Sehmi 1999.  Arvinder@Sehmi.co.uk"
  6.    ClientHeight    =   5715
  7.    ClientLeft      =   45
  8.    ClientTop       =   330
  9.    ClientWidth     =   7095
  10.    Icon            =   "Launcher.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   5715
  15.    ScaleWidth      =   7095
  16.    StartUpPosition =   2  'CenterScreen
  17.    Begin VB.HScrollBar SpeedSetter 
  18.       Height          =   195
  19.       LargeChange     =   20
  20.       Left            =   2385
  21.       Max             =   200
  22.       Min             =   10
  23.       TabIndex        =   9
  24.       Top             =   4680
  25.       Value           =   10
  26.       Width           =   3615
  27.    End
  28.    Begin VB.CheckBox LaunchExit 
  29.       Appearance      =   0  'Flat
  30.       BackColor       =   &H00000000&
  31.       Caption         =   "Exit After Launch?"
  32.       BeginProperty Font 
  33.          Name            =   "MS Sans Serif"
  34.          Size            =   8.25
  35.          Charset         =   0
  36.          Weight          =   700
  37.          Underline       =   0   'False
  38.          Italic          =   0   'False
  39.          Strikethrough   =   0   'False
  40.       EndProperty
  41.       ForeColor       =   &H000000FF&
  42.       Height          =   420
  43.       Left            =   1890
  44.       TabIndex        =   8
  45.       Top             =   4050
  46.       Value           =   1  'Checked
  47.       Width           =   1950
  48.    End
  49.    Begin LaunchQuadball.Logo Logo 
  50.       Height          =   1125
  51.       Left            =   135
  52.       TabIndex        =   5
  53.       Top             =   3420
  54.       Width           =   1500
  55.       _ExtentX        =   2646
  56.       _ExtentY        =   1984
  57.    End
  58.    Begin VB.Label Label9 
  59.       BackStyle       =   0  'Transparent
  60.       Caption         =   "^\ Too Fast!"
  61.       BeginProperty Font 
  62.          Name            =   "MS Sans Serif"
  63.          Size            =   8.25
  64.          Charset         =   0
  65.          Weight          =   700
  66.          Underline       =   0   'False
  67.          Italic          =   0   'False
  68.          Strikethrough   =   0   'False
  69.       EndProperty
  70.       ForeColor       =   &H00FFFFFF&
  71.       Height          =   195
  72.       Left            =   5805
  73.       TabIndex        =   15
  74.       Top             =   4995
  75.       Width           =   1275
  76.    End
  77.    Begin VB.Shape Shape1 
  78.       BorderColor     =   &H00FFFF00&
  79.       Height          =   735
  80.       Left            =   90
  81.       Top             =   4545
  82.       Width           =   6900
  83.    End
  84.    Begin VB.Label Label8 
  85.       BackStyle       =   0  'Transparent
  86.       Caption         =   "Higher Speed = Higher Score"
  87.       ForeColor       =   &H00C0C0C0&
  88.       Height          =   195
  89.       Left            =   180
  90.       TabIndex        =   14
  91.       Top             =   4995
  92.       Width           =   2625
  93.    End
  94.    Begin VB.Label Label7 
  95.       BackStyle       =   0  'Transparent
  96.       Caption         =   "^\ Expert"
  97.       BeginProperty Font 
  98.          Name            =   "MS Sans Serif"
  99.          Size            =   8.25
  100.          Charset         =   0
  101.          Weight          =   700
  102.          Underline       =   0   'False
  103.          Italic          =   0   'False
  104.          Strikethrough   =   0   'False
  105.       EndProperty
  106.       ForeColor       =   &H00FFFFFF&
  107.       Height          =   195
  108.       Left            =   4140
  109.       TabIndex        =   13
  110.       Top             =   4950
  111.       Width           =   870
  112.    End
  113.    Begin VB.Label Label6 
  114.       BackStyle       =   0  'Transparent
  115.       Caption         =   "^\ Novice"
  116.       BeginProperty Font 
  117.          Name            =   "MS Sans Serif"
  118.          Size            =   8.25
  119.          Charset         =   0
  120.          Weight          =   700
  121.          Underline       =   0   'False
  122.          Italic          =   0   'False
  123.          Strikethrough   =   0   'False
  124.       EndProperty
  125.       ForeColor       =   &H00FFFFFF&
  126.       Height          =   285
  127.       Left            =   2475
  128.       TabIndex        =   12
  129.       Top             =   4950
  130.       Width           =   960
  131.    End
  132.    Begin VB.Label SetSpeed 
  133.       BackStyle       =   0  'Transparent
  134.       Caption         =   "10"
  135.       BeginProperty Font 
  136.          Name            =   "MS Sans Serif"
  137.          Size            =   13.5
  138.          Charset         =   0
  139.          Weight          =   700
  140.          Underline       =   0   'False
  141.          Italic          =   0   'False
  142.          Strikethrough   =   0   'False
  143.       EndProperty
  144.       ForeColor       =   &H000000FF&
  145.       Height          =   285
  146.       Left            =   6255
  147.       TabIndex        =   11
  148.       Top             =   4635
  149.       Width           =   555
  150.    End
  151.    Begin VB.Label Label5 
  152.       BackStyle       =   0  'Transparent
  153.       Caption         =   "Game Comet Speed:"
  154.       BeginProperty Font 
  155.          Name            =   "MS Sans Serif"
  156.          Size            =   9.75
  157.          Charset         =   0
  158.          Weight          =   700
  159.          Underline       =   0   'False
  160.          Italic          =   0   'False
  161.          Strikethrough   =   0   'False
  162.       EndProperty
  163.       ForeColor       =   &H00FFFF00&
  164.       Height          =   285
  165.       Left            =   180
  166.       TabIndex        =   10
  167.       Top             =   4635
  168.       Width           =   2400
  169.    End
  170.    Begin VB.Image Title 
  171.       Height          =   1575
  172.       Left            =   90
  173.       Picture         =   "Launcher.frx":09BA
  174.       Top             =   180
  175.       Width           =   6930
  176.    End
  177.    Begin VB.Line Line8 
  178.       BorderColor     =   &H00FFFF00&
  179.       X1              =   135
  180.       X2              =   1710
  181.       Y1              =   1890
  182.       Y2              =   1890
  183.    End
  184.    Begin VB.Line Line7 
  185.       BorderColor     =   &H00FFFF00&
  186.       X1              =   3915
  187.       X2              =   5400
  188.       Y1              =   1755
  189.       Y2              =   1755
  190.    End
  191.    Begin VB.Label Train 
  192.       Alignment       =   2  'Center
  193.       BackStyle       =   0  'Transparent
  194.       Caption         =   "Play"
  195.       BeginProperty Font 
  196.          Name            =   "MS Sans Serif"
  197.          Size            =   12
  198.          Charset         =   0
  199.          Weight          =   400
  200.          Underline       =   0   'False
  201.          Italic          =   0   'False
  202.          Strikethrough   =   0   'False
  203.       EndProperty
  204.       ForeColor       =   &H0000FF00&
  205.       Height          =   345
  206.       Left            =   2025
  207.       TabIndex        =   3
  208.       Top             =   3285
  209.       Width           =   1485
  210.    End
  211.    Begin VB.Shape TrainShape 
  212.       BorderColor     =   &H00FF0000&
  213.       Height          =   555
  214.       Left            =   2025
  215.       Shape           =   2  'Oval
  216.       Top             =   3150
  217.       Width           =   1500
  218.    End
  219.    Begin VB.Label Story 
  220.       Alignment       =   2  'Center
  221.       BackStyle       =   0  'Transparent
  222.       Caption         =   "Play"
  223.       BeginProperty Font 
  224.          Name            =   "MS Sans Serif"
  225.          Size            =   12
  226.          Charset         =   0
  227.          Weight          =   400
  228.          Underline       =   0   'False
  229.          Italic          =   0   'False
  230.          Strikethrough   =   0   'False
  231.       EndProperty
  232.       ForeColor       =   &H0000FF00&
  233.       Height          =   345
  234.       Left            =   5265
  235.       TabIndex        =   4
  236.       Top             =   3960
  237.       Width           =   1485
  238.    End
  239.    Begin VB.Shape StoryShape 
  240.       BorderColor     =   &H00FF0000&
  241.       Height          =   555
  242.       Left            =   5265
  243.       Shape           =   2  'Oval
  244.       Top             =   3825
  245.       Width           =   1500
  246.    End
  247.    Begin VB.Line Line6 
  248.       BorderColor     =   &H00FFFF00&
  249.       X1              =   3915
  250.       X2              =   5265
  251.       Y1              =   4095
  252.       Y2              =   4095
  253.    End
  254.    Begin VB.Line Line5 
  255.       BorderColor